﻿Imports Logica

Public Class MainForm
    Private ucBienvenida As New Bienvenida
    Private ucUsuarios As New Usuarios
    Private ucDepartamentos As New Departamentos
    Private ucConfiguracion As New Configuracion

    ''' <summary>
    ''' Carga las pantallas principales del sistema.
    ''' </summary>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 11/06/2010, Modificado: 11/06/2010</remarks>
    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Bienvenida
        ucBienvenida.Visible = True
        tpPrincipal.Controls.Add(ucBienvenida)

        'Usuarios
        ucUsuarios.Visible = True
        tpUsuarios.Controls.Add(ucUsuarios)

        'Departamentos
        ucDepartamentos.Visible = True
        tpDepartamentos.Controls.Add(ucDepartamentos)

        'Configuración
        ucConfiguracion.Visible = True
        tpConfiguracion.Controls.Add(ucConfiguracion)
    End Sub

    ''' <summary>
    ''' Cierra la sesión del usuario y muestra la pantalla de identificar usuario.
    ''' </summary>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 20/06/2010, Modificado: 20/06/2010</remarks>
    Private Sub MainForm_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Gestor.usuarioCerrarSesion()
        IdentificarUsuario.Visible = True
    End Sub

    ''' <summary>
    ''' Cierra la aplicación.
    ''' </summary>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 20/06/2010, Modificado: 20/06/2010</remarks>
    Private Sub tsmiCerrarSesion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmiCerrarSesion.Click
        Me.Close()
    End Sub

    ''' <summary>
    ''' Muestra la ayuda del sistema.
    ''' </summary>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 29/06/2010, Modificado: 29/06/2010</remarks>
    Private Sub AyudaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AyudaToolStripMenuItem1.Click
        MostrarAyuda.Show()
    End Sub

    ''' <summary>
    ''' Muestra el diálogo de acerca.
    ''' </summary>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 04/07/2010, Modificado: 04/07/2010</remarks>
    Private Sub AcercaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaToolStripMenuItem.Click
        AcercaOpenRH.ShowDialog()
    End Sub
End Class
